hab mir direkt das neue 22.04 installiert. läuft gut! wird in 2-3 wochen auf allen produktionsservern zum einsatz kommen
Woher hast die ISO?
https://cdimage.ubuntu.com/ubuntu/releases/22.04/release/
Hier ist doch noch gar nicht die AMD64 Version gelistet...
Woher hast die ISO?
https://cdimage.ubuntu.com/ubuntu/releases/22.04/release/
Hier ist doch noch gar nicht die AMD64 Version gelistet...
Woher hast die ISO?
Ist noch kein Release - gibt für AMD64 nur Beta Versionen aktuell: https://cdimage.ubuntu.com/ubuntu-server/daily-live/current/
Das "Beta" branding ist weg
Wie lange dauert es denn in der Regel, bis die ISO hier im SCP zu Verfügung steht?
(Bis zum installierbaren Image dürfte es ja dann etwas länger dauern)
Wie lange dauert es denn in der Regel, bis die ISO hier im SCP zu Verfügung steht?
Per SFTP Upload etwa 5 Minuten 
Ja, lol.
Habe ich ja auch schon gemacht mit dem Betas
Ich wollte mir den Download/Upload aber jetzt ersparen...
Kann man ein Webhosting von Netcup komplett zurücksetzen lassen?
Ich meine nicht aufgebrauchte Inklusivdomains.. sondern eben Plesk und Webspace, Mailspace.
Ok, das wäre ein Hack -> an einen 2ten Account übertragen und wieder zurückübertragen. lol
Wusste ich es doch.
WRITE (*, *) "Hello World"
Das älteste (in Fortran), was ich von mir gefunden habe, ist das hier:
program _ascii
integer h,i
character c
print '(3X,2(1X,8I4),//)', ( i, i=0,15 )
print '( " 0 NUL SOH STX ETX EOT ENQ ACK BEL",
2 " BS HT LF VT FF CR SO SI",/ )'
print '( " 16 DLE DC1 DC2 DC3 DC4 NAK SYN ETB",
2 " CAN EM SUB ESC FS GS RS UP",/ )'
do 100, h = 32, 255, 16
if ( h .EQ. 128 ) print
print 1000, h, ( char(h+i), i=0,15 )
1000 format (I4,1X,2(1X,8(1X,A1,2X)),/)
100 continue
endwolltest Dir damit de ASCII Code Matrix ausgeben aRaphael
spannend, ich hab den Code mal durch den compiler gejagt, die Ausgabe sieht etwas seltsam aus ...
Wer hier kennt den eigentlich noch solche Sachen wie "Turbo Pascal"?
Lang lang ist es her 
die Ausgabe sieht etwas seltsam aus ...
Sieht doch gut aus. (Zumindest bis 127 )
Ok, das wäre ein Hack -> an einen 2ten Account übertragen und wieder zurückübertragen. lol
Und was soll dann zurückgesetzt sein? Beim Inhaberwechsel bleibt ja alles gleich
Sobald das Routing über die normale IP kaputt geht, geht es nicht mehr.
Ich kann aber zumindest die normale IP auf der netplan-config auch ganz rausnehmen
Hab das eben mal probiert und kann mich dann noch mit der Failover-IP per ssh einloggen (Über die Primäre dann natürlich nicht mehr) und auch sonst scheint alles rein und raus zu gehen. (Ausgiebig getestet habe ich das allerdings nicht)
Vor meinem Umzug vor zwei Jahren habe ich 250 kg nur Serverhardware zum Recyclinghof gebracht... und immer noch genug Mist hier, aber es dünnt sich aus seitdem.
Für brauchbares Zeug, was man loswerden möchte, kann ich euch diese Telegram Gruppe hier empfehlen: https://t.me/serverboerse
Oder falls man mal was braucht.
Aber auf eigene Gefahr, da kommt schnell der Horder durch.
Wer hier kennt den eigentlich noch solche Sachen wie "Turbo Pascal"?
Habe ich noch in der Schule gelernt. Mit Delphi und Lazarus.
Glaube das war so 2015-2017.
Hay,
1989 - Assembler: Zeichnen einer Linie im Bildschirmspeicher einer VGA-Karte
ziehelinie: ; Deltax=sgn(px-x),si=abs(px-x):
mov deltax1,1
mov deltax2,0
mov si,px
sub si,x
jns dxpositiv
mov deltax1,-1
neg si
dxpositiv: ;deltay=sgn(py-y), wert=abs(py-y)
mov deltay1,0
mov deltay2,1
mov ax,py
sub ax,y
jns dypositiv
mov deltay2,-1
neg ax
dypositiv: mov wert,ax
; Falls Steigung >1 dann Hauptschritte in y-Richtung:
cmp ax,si
jb ok
xchg wert,si
xor ax,ax
xchg ax,deltax1
mov deltax2,ax
xor ax,ax
xchg ax,deltay2
mov deltay1,ax
; Steigungsz„hler initialisieren:
ok: mov bx,si
shr bx,1
naechsterpunkt: call [setzepunkt]
; Wenn Endpunkt erreicht, dann fertig:
cmp x,px
jne weiter
cmp y,py
je fertig
; Hauptschrittrichtung weiterz„hlen:
weiter: add x,deltax1
add y,deltay1
; Steigungsz„hler um Divisor erh”hen:
add bx,wert
; Wenn Steigungsz„hler < Divident, dann n„chsten Punkt setzen:
cmp bx,si
jb naechsterpunkt
; Nebenschrittrichtung weiterz„hlen:
add x,deltax2
add y,deltay2
; Steigungsz„hler um Divident verringern:
sub bx,si
jmp naechsterpunkt
fertig: ret1988 - Turbo Pascal: Einen Würfel dreidimensional drehen und zoomen
program wuerfel;
uses graph,crt,dos;
var i,j,n,m,xk,yk:integer;
c1,c2,k:real;
t:char;
ct1,ct2,st1,st2:real;
xp,yp,zp,xd,yd,zd:array [1..8] of real;
const
x:array [1..8] of real=(-8,8,8,-8,-8,8,8,-8);
y:array [1..8] of real=(8,8,-8,-8,8,8,-8,-8);
z:array [1..8] of real=(8,8,8,8,-8,-8,-8,-8);
l:array [1..12,1..2] of shortint=((1,2),(2,3),(3,4),(4,1),(5,6),(6,7),(7,8),(8,5),(1,5),(2,6),(3,7),(4,8));
vga:integer=9;
vgahi:integer=2;
begin
initgraph(vga,vgahi,'');
setgraphmode(vgahi);
n:=8;m:=12;
c1:=100;c2:=50;
repeat
for i:=1 to n do
begin
xd[i]:=x[i]*c1/(z[i]+c2);
yd[i]:=y[i]*c1/(z[i]+c2);
end;
xk:=320;yk:=240;
setcolor(1);
for i:=1 to m do
line(round(xd[l[i,1]])+xk,round(yd[l[i,1]])+yk,round(xd[l[i,2]])+xk,round(yd[l[i,2]])+yk);
t:=readkey;
setcolor(0);
for i:=1 to m do
line(round(xd[l[i,1]])+xk,round(yd[l[i,1]])+yk,round(xd[l[i,2]])+xk,round(yd[l[i,2]])+yk);
ct1:=cos(-0.05);ct2:=cos(0.05);
st1:=sin(-0.05);st2:=sin(0.05);
case t of
'Z': for i:=1 to n do
begin
k:=x[i]*ct1-y[i]*st1;
y[i]:=x[i]*st1+y[i]*ct1;
x[i]:=k;
end;
'X': for i:=1 to n do
begin
k:=y[i]*ct1-z[i]*st1;
z[i]:=y[i]*st1+z[i]*ct1;
y[i]:=k;
end;
'Y': for i:=1 to n do
begin
k:=x[i]*ct1+z[i]*st1;
z[i]:=-x[i]*st1+z[i]*ct1;
x[i]:=k;
end;
'z': for i:=1 to n do
begin
k:=x[i]*ct2-y[i]*st2;
y[i]:=x[i]*st2+y[i]*ct2;
x[i]:=k;
end;
'x': for i:=1 to n do
begin
k:=y[i]*ct2-z[i]*st2;
z[i]:=y[i]*st2+z[i]*ct2;
y[i]:=k;
end;
'y': for i:=1 to n do
begin
k:=x[i]*ct2+z[i]*st2;
z[i]:=-x[i]*st2+z[i]*ct2;
x[i]:=k;
end;
'p': c1:=c1+1;
'P': c1:=c1-1;
'-': c2:=c2+1;
'+': c2:=c2-1;
end;
until t='e';
end.1988 - Basic: Apfelmännchen
100 CLS:PRINT TAB(10);"F R A K T A L E":PRINT STRING$(80,"Í");
110 DEFINT A-W
120 INPUT "Modus";I$:IF I$="" THEN 140
125 IF I$="1" THEN HOR=320:VER=200:MFA=4
126 IF I$="9" THEN HOR=640:VER=350:MFA=16
130 X1=-.75:X9=2:Y1=-1:Y9=1:FS=1:TIEFE=50
230 ZX=(X9-X1)/HOR:ZY=(Y9-Y1)/VER:S=1000
240 DEF FNODD(X)=X MOD 16
250 CLS:KEY OFF:SCREEN VAL(I$)
260 FOR X=X1 TO X9 STEP ZX
270 FOR Y=Y1 TO Y9 STEP ZY
280 XK=X:YK=Y
290 FOR K=0 TO TIEFE
300 IF (XK*XK+YK*YK)>S THEN 340
310 XK1=XK*XK-YK*YK-X:YK1=2*XK*YK-Y
320 XK=XK1:YK=YK1
330 NEXT K
340 K1=INT(K/FS):IF K>TIEFE THEN FA=0 ELSE FA=K1 MOD MFA
350 HKORD=(X-X1)/ZX:VKORD=(Y-Y1)/ZY
360 PSET(HKORD,VKORD),FA
370 NEXT Y
380 IF INKEY@@@WCF_PRE_BACKUP_2@@@lt;>"" THEN 400
390 NEXT X
400 ENDIch habe früher viel mit Grafik gemacht. Irgendwo liegt auch noch mein Quellcode, mit dem ich Amiga ILBM-Grafikformat auf VGA-Karten darstellen konnte.
CU, Peter
Alles anzeigenHay,
1989 - Assembler: Zeichnen einer Linie im Bildschirmspeicher einer VGA-Karte
Codeziehelinie: ; Deltax=sgn(px-x),si=abs(px-x): mov deltax1,1 mov deltax2,0 mov si,px sub si,x jns dxpositiv mov deltax1,-1 neg si dxpositiv: ;deltay=sgn(py-y), wert=abs(py-y) mov deltay1,0 mov deltay2,1 mov ax,py sub ax,y jns dypositiv mov deltay2,-1 neg ax dypositiv: mov wert,ax ; Falls Steigung >1 dann Hauptschritte in y-Richtung: cmp ax,si jb ok xchg wert,si xor ax,ax xchg ax,deltax1 mov deltax2,ax xor ax,ax xchg ax,deltay2 mov deltay1,ax ; Steigungsz„hler initialisieren: ok: mov bx,si shr bx,1 naechsterpunkt: call [setzepunkt] ; Wenn Endpunkt erreicht, dann fertig: cmp x,px jne weiter cmp y,py je fertig ; Hauptschrittrichtung weiterz„hlen: weiter: add x,deltax1 add y,deltay1 ; Steigungsz„hler um Divisor erh”hen: add bx,wert ; Wenn Steigungsz„hler < Divident, dann n„chsten Punkt setzen: cmp bx,si jb naechsterpunkt ; Nebenschrittrichtung weiterz„hlen: add x,deltax2 add y,deltay2 ; Steigungsz„hler um Divident verringern: sub bx,si jmp naechsterpunkt fertig: ret1988 - Turbo Pascal: Einen Würfel dreidimensional drehen und zoomen
Codeprogram wuerfel; uses graph,crt,dos; var i,j,n,m,xk,yk:integer; c1,c2,k:real; t:char; ct1,ct2,st1,st2:real; xp,yp,zp,xd,yd,zd:array [1..8] of real; const x:array [1..8] of real=(-8,8,8,-8,-8,8,8,-8); y:array [1..8] of real=(8,8,-8,-8,8,8,-8,-8); z:array [1..8] of real=(8,8,8,8,-8,-8,-8,-8); l:array [1..12,1..2] of shortint=((1,2),(2,3),(3,4),(4,1),(5,6),(6,7),(7,8),(8,5),(1,5),(2,6),(3,7),(4,8)); vga:integer=9; vgahi:integer=2; begin initgraph(vga,vgahi,''); setgraphmode(vgahi); n:=8;m:=12; c1:=100;c2:=50; repeat for i:=1 to n do begin xd[i]:=x[i]*c1/(z[i]+c2); yd[i]:=y[i]*c1/(z[i]+c2); end; xk:=320;yk:=240; setcolor(1); for i:=1 to m do line(round(xd[l[i,1]])+xk,round(yd[l[i,1]])+yk,round(xd[l[i,2]])+xk,round(yd[l[i,2]])+yk); t:=readkey; setcolor(0); for i:=1 to m do line(round(xd[l[i,1]])+xk,round(yd[l[i,1]])+yk,round(xd[l[i,2]])+xk,round(yd[l[i,2]])+yk); ct1:=cos(-0.05);ct2:=cos(0.05); st1:=sin(-0.05);st2:=sin(0.05); case t of 'Z': for i:=1 to n do begin k:=x[i]*ct1-y[i]*st1; y[i]:=x[i]*st1+y[i]*ct1; x[i]:=k; end; 'X': for i:=1 to n do begin k:=y[i]*ct1-z[i]*st1; z[i]:=y[i]*st1+z[i]*ct1; y[i]:=k; end; 'Y': for i:=1 to n do begin k:=x[i]*ct1+z[i]*st1; z[i]:=-x[i]*st1+z[i]*ct1; x[i]:=k; end; 'z': for i:=1 to n do begin k:=x[i]*ct2-y[i]*st2; y[i]:=x[i]*st2+y[i]*ct2; x[i]:=k; end; 'x': for i:=1 to n do begin k:=y[i]*ct2-z[i]*st2; z[i]:=y[i]*st2+z[i]*ct2; y[i]:=k; end; 'y': for i:=1 to n do begin k:=x[i]*ct2+z[i]*st2; z[i]:=-x[i]*st2+z[i]*ct2; x[i]:=k; end; 'p': c1:=c1+1; 'P': c1:=c1-1; '-': c2:=c2+1; '+': c2:=c2-1; end; until t='e'; end.1988 - Basic: Apfelmännchen
Code100 CLS:PRINT TAB(10);"F R A K T A L E":PRINT STRING$(80,"Í"); 110 DEFINT A-W 120 INPUT "Modus";I$:IF I$="" THEN 140 125 IF I$="1" THEN HOR=320:VER=200:MFA=4 126 IF I$="9" THEN HOR=640:VER=350:MFA=16 130 X1=-.75:X9=2:Y1=-1:Y9=1:FS=1:TIEFE=50 230 ZX=(X9-X1)/HOR:ZY=(Y9-Y1)/VER:S=1000 240 DEF FNODD(X)=X MOD 16 250 CLS:KEY OFF:SCREEN VAL(I$) 260 FOR X=X1 TO X9 STEP ZX 270 FOR Y=Y1 TO Y9 STEP ZY 280 XK=X:YK=Y 290 FOR K=0 TO TIEFE 300 IF (XK*XK+YK*YK)>S THEN 340 310 XK1=XK*XK-YK*YK-X:YK1=2*XK*YK-Y 320 XK=XK1:YK=YK1 330 NEXT K 340 K1=INT(K/FS):IF K>TIEFE THEN FA=0 ELSE FA=K1 MOD MFA 350 HKORD=(X-X1)/ZX:VKORD=(Y-Y1)/ZY 360 PSET(HKORD,VKORD),FA 370 NEXT Y 380 IF INKEY@@@WCF_PRE_BACKUP_2@@@lt;>"" THEN 400 390 NEXT X 400 END
Ich habe früher viel mit Grafik gemacht. Irgendwo liegt auch noch mein Quellcode, mit dem ich Amiga ILBM-Grafikformat auf VGA-Karten darstellen konnte.
CU, Peter
Ja das waren noch Zeiten Da waren wir noch jung
1) Ein System soll (= fast so stark wie "darf") nur EIN Standardgateway haben, weil über dieses Interace jeder Traffic geschickt wird, der nicht zum eigenen Netzwerk (also IP & Netmask) gehört.
2) Für die Failover-IP sollte man ein weiteres eigenes Netzwerkinterface hinzufügen, nicht als zusätzliche IP auf das normale Interface
Was auch in netplan zu funktionieren scheint, ist es nur ein Interface zu nehmen, aber statt ein gateway4 anzugeben, routes zu verwenden.
Ich habe das jetzt mal so ausprobiert und auch das scheint (auf den ersten Blick) rein und raus zu klappen:
#gateway4: aus.kom.men.tiert
routes:
- to: default
via: primä.res.gate.way
- to: fail.o.ver.ip/32
via: fail.over.gate.way