This document details the entry points you can call without the DrakX graohical
toolkit. First, the general variables you will encounter further. If you don't
know wht a variable is, look here. Any additional locally variables are
commented 'in place'
------------------------------
Special types (in upper cases)
------------------------------
DB_FILE : file storing the ISDN ISP database. see share/isdndb.txt : file of lines in 'Unlisted - edit manually' or /^(.*)\|(.*)\|(.*)=>([0-9]*)=>(.*)=>(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})=>(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/ where $1=Land $2=City $3=ISP_name $4=phone_number $5=hostname $6=dns1 $7=dns2
---------------------------------------------------------------------------------------
Summary of common variables used (local variables are described in the function itself)
---------------------------------------------------------------------------------------
notation : keys : description : type : format (regexp or enumeration. `...' means it's not exhaustive
$prefix : prefix path (empty in post-install) : string : path
$isLaptop : flag for laptop : boolean or int : guess
$isdn : hash table containing isdn infos
$isdn->{login} : cnx login : string
$isdn->{passwd} : cnx passwd : string
$isdn->{phone_in} : user phone : /^[0-9]*$/
$isdn->{phone_out} : ISP phone : /^[0-9]*$/
$isdn->{dialing_mode} : dialing mode : "auto" or "manual"
$isdn->{driver} : driver used for the card : "hisax" or "b1pci" or ...
$isdn->{type} : type of card, used for the driver, see netconnect_consts : integer : /^[1-22]|[24-37]$/
$isdn->{irq} : irq of the ISA card : integer |
$isdn->{mem} : mem of the ISA card : string |
$isdn->{io} : io of the ISA card : string | see netconnect_consts for examples.
$isdn->{io0} : io0 of the ISA card : string |
$isdn->{io1} : i01 of the ISA card : string |
$isdn->{idl} : amount of time after the cnx times out in secs : int
$isdn->{user_name} : not used anymore. Not explicit. It represented the name of the connexion.
$isdn->{card_type} : card type : string : "isa" or "pci" or "pcmcia"
$isdn->{protocol} : cnx protocol : int : 1|2|3 : 1 for old german specific (not used anymore), 2 for europe, 3 for rest of the world
$isdn->{id} : card id. Associated with vendor, identify strictly the card. see pcitable : integer
$isdn->{description} : card description from pcitable : string
$isdn->{vendor} : card vendor : integer
$isdn->{passwd2} : passwd verification : string
$modem : hash table containing modem infos
$modem->{device} : device of the modem : string : /ttyS[0-9]/
$adsl : hash table containing modem infos
$adsl->{login} : cnx login : string
$adsl->{passwd} : cnx passwd : string
$adsl->{atboot} :
$netc : hash table containing system-wide networking infos (maybe not true, correct this) :
$netc->{NET_DEVICE}
$netc->{dnsServer2}
$netc->{dnsServer3}
$netc->{DOMAINNAME2}
$netc->{NET_INTERFACE} is set to "ppp0"
$in : interactive object
------------
Entry points
------------
isdn_write_config_backend : write isdn info, only for ippp0 -> ask_connect_now
input :
$prefix
$isdn
$isdn input:
$isdn->{login} $isdn->{passwd} $isdn->{phone_in} $isdn->{phone_out} $isdn->{dialing_mode}
$isdn->{driver} $isdn->{type} $isdn->{irq} $isdn->{mem} $isdn->{io} $isdn->{io0} $isdn->{io1}
write_secret_backend : write login and passwd into /etc/ppp/{chap, pap}-secrets. Replace old passwd only if same login
input :
$a : login : string : /^.*$/
$b : passwd : string : /^.*$/
connect_backend : launch the cnx script
input : $prefix
connect_backend : launch the cnx script
input : $prefix
read_providers_backend : build the tree of isdn ISP
input :
$file : 1st location of the file : ISDN_DB_FILE
$file2 : 2nd location of the file : ISDN_DB_FILE
output : the list of ISP : array of strings : array of /^(.*)\|(.*)\|(.*)$/ where $1=Land $2=City $3=ISP_name
get_info_isdn_backend : fills the infos from the line of the tree returned into $isdn and $netc
input :
$isdn
$netc
$name : the line choosen in the tree of ISP : string : /^(.*)\|(.*)\|(.*)$/ with $1=Land $2=City $3=ISP_name
$file : 1st location of the file : ISDN_DB_FILE
$file2 : 2nd location of the file : ISDN_DB_FILE
$isdn ouput
$isdn->{user_name}, $isdn->{phone_out}, $netc->{DOMAINNAME2}, $netc->{dnsServer2}, $netc->{dnsServer3},
$netc output
$netc->{DOMAINNAME2}, $netc->{dnsServer2}, $netc->{dnsServer3}
isdn_detect_backend : detects isdn pci card and fills the infos in $isdn : only detects one card
input
$isdn
$isdn output:
$isdn->{description} $isdn->{vendor} $isdn->{id} $isdn->{driver} $isdn->{card_type} $isdn->{type}
isdn_get_list : return isdn cards descriptions list. This function is not use internally.
output : descriptions : list of strings
isdn_get_info : return isdn card infos. This function is not use internally.
input : the description of the card (see isdn_get_list)
output : a reference on the decription of the card. : ref on a hash(description,type,irq,mem,io,io0,io1card,)
conf_network_card_backend : configure the network cards and return the list of them, or configure one specified interface : WARNING, you have to setup the ethernet cards, by calling setup_thiskind($in, 'net', !$::expert, 1) or setup_thiskind_backend before calling this function. Basically, you call this function in 2 times.
input
$prefix
$netc
$intf
$type : type of interface, must be given if $interface is : string : "static" or "dhcp"
$interface : facultative, if given, set this interface and return it in a proper form. If not, return @all_cards
$ipadr : facultative, ip address of the interface : string
$netadr : facultative, netaddress of the interface : string
when $interface is given, informations are written in $intf and $netc. If not, @all_cards is returned.
$intf output: $device is the result of
$intf->{$device}->{DEVICE} : which device is concerned : $device is the result of $interface =~ /(eth[0-9]+)/; my $device = $1;;
$intf->{$device}->{BOOTPROTO} : $type
$intf->{$device}->{NETMASK} : '255.255.255.0'
$intf->{$device}->{NETWORK} : $netadr
$intf->{$device}->{ONBOOT} : "yes"
$netc output:
$netc->{nb_cards} : nb of ethernet cards
$netc->{NET_DEVICE} : this is used to indicate that this eth card is used to connect to internet : $device
output:
$all_cards : a list of a list ( (eth1, module1), ... , (ethn, modulen)). Pass the ethx as $interface in further call.
$device : only returned in case $interface was given it's $interface, but filtered by /eth[0-9+]/ : string : /eth[0-9+]/
adsl_conf_backend : write adsl configuration
input :
$prefix
$adsl
$netc
$adsl_type : type of cnx : string : "pptp" or "pppoe"
$adsl input:
$adsl->{login}, $adsl->{passwd}, $adsl->{atboot}
$netc input:
$netc->{NET_DEVICE}
$netc->{dnsServer2}
$netc->{dnsServer3}
$netc->{DOMAINNAME2}
$netc output:
$netc->{NET_INTERFACE} is set to "ppp0"
modem_detect_backend : detects modem on serial ports and fills the infos in $modem : detects only one card
input
$modem
$mouse : facultative, hash containing device to exclude not to test mouse port : ( device => /ttyS[0-9]/ )
output:
$modem->{device} : device where the modem were detected
get_net_device : return the device choosen for the net cnx
no input
output : name of the internet device.
read_net_conf : read the information stored in $prefix/etc/sysconfig/draknet and $prefix/etc/sysconfig/draknet.`type`
input:
$prefix
$netcnx
$netc
set_net_conf : set the information from netcnx in $prefix/etc/sysconfig/draknet and $prefix/etc/sysconfig/draknet.`type`
$prefix
$netcnx
$netc : useless! REMOVE ME
37'>37</a>
<a id='n38' href='#n38'>38</a>
<a id='n39' href='#n39'>39</a>
<a id='n40' href='#n40'>40</a>
<a id='n41' href='#n41'>41</a>
<a id='n42' href='#n42'>42</a>
<a id='n43' href='#n43'>43</a>
<a id='n44' href='#n44'>44</a>
<a id='n45' href='#n45'>45</a>
<a id='n46' href='#n46'>46</a>
<a id='n47' href='#n47'>47</a>
<a id='n48' href='#n48'>48</a>
<a id='n49' href='#n49'>49</a>
<a id='n50' href='#n50'>50</a>
<a id='n51' href='#n51'>51</a>
<a id='n52' href='#n52'>52</a>
<a id='n53' href='#n53'>53</a>
<a id='n54' href='#n54'>54</a>
<a id='n55' href='#n55'>55</a>
<a id='n56' href='#n56'>56</a>
<a id='n57' href='#n57'>57</a>
<a id='n58' href='#n58'>58</a>
<a id='n59' href='#n59'>59</a>
<a id='n60' href='#n60'>60</a>
<a id='n61' href='#n61'>61</a>
<a id='n62' href='#n62'>62</a>
<a id='n63' href='#n63'>63</a>
<a id='n64' href='#n64'>64</a>
<a id='n65' href='#n65'>65</a>
<a id='n66' href='#n66'>66</a>
<a id='n67' href='#n67'>67</a>
<a id='n68' href='#n68'>68</a>
<a id='n69' href='#n69'>69</a>
<a id='n70' href='#n70'>70</a>
<a id='n71' href='#n71'>71</a>
<a id='n72' href='#n72'>72</a>
<a id='n73' href='#n73'>73</a>
<a id='n74' href='#n74'>74</a>
<a id='n75' href='#n75'>75</a>
<a id='n76' href='#n76'>76</a>
<a id='n77' href='#n77'>77</a>
<a id='n78' href='#n78'>78</a>
<a id='n79' href='#n79'>79</a>
<a id='n80' href='#n80'>80</a>
<a id='n81' href='#n81'>81</a>
<a id='n82' href='#n82'>82</a>
<a id='n83' href='#n83'>83</a>
<a id='n84' href='#n84'>84</a>
<a id='n85' href='#n85'>85</a>
<a id='n86' href='#n86'>86</a>
<a id='n87' href='#n87'>87</a>
<a id='n88' href='#n88'>88</a>
<a id='n89' href='#n89'>89</a>
<a id='n90' href='#n90'>90</a>
<a id='n91' href='#n91'>91</a>
<a id='n92' href='#n92'>92</a>
<a id='n93' href='#n93'>93</a>
<a id='n94' href='#n94'>94</a>
<a id='n95' href='#n95'>95</a>
<a id='n96' href='#n96'>96</a>
<a id='n97' href='#n97'>97</a>
<a id='n98' href='#n98'>98</a>
<a id='n99' href='#n99'>99</a>
<a id='n100' href='#n100'>100</a>
<a id='n101' href='#n101'>101</a>
<a id='n102' href='#n102'>102</a>
<a id='n103' href='#n103'>103</a>
<a id='n104' href='#n104'>104</a>
<a id='n105' href='#n105'>105</a>
<a id='n106' href='#n106'>106</a>
<a id='n107' href='#n107'>107</a>
<a id='n108' href='#n108'>108</a>
<a id='n109' href='#n109'>109</a>
<a id='n110' href='#n110'>110</a>
<a id='n111' href='#n111'>111</a>
<a id='n112' href='#n112'>112</a>
<a id='n113' href='#n113'>113</a>
<a id='n114' href='#n114'>114</a>
<a id='n115' href='#n115'>115</a>
<a id='n116' href='#n116'>116</a>
<a id='n117' href='#n117'>117</a>
<a id='n118' href='#n118'>118</a>
<a id='n119' href='#n119'>119</a>
<a id='n120' href='#n120'>120</a>
<a id='n121' href='#n121'>121</a>
<a id='n122' href='#n122'>122</a>
<a id='n123' href='#n123'>123</a>
<a id='n124' href='#n124'>124</a>
<a id='n125' href='#n125'>125</a>
<a id='n126' href='#n126'>126</a>
<a id='n127' href='#n127'>127</a>
<a id='n128' href='#n128'>128</a>
<a id='n129' href='#n129'>129</a>
<a id='n130' href='#n130'>130</a>
<a id='n131' href='#n131'>131</a>
<a id='n132' href='#n132'>132</a>
<a id='n133' href='#n133'>133</a>
<a id='n134' href='#n134'>134</a>
<a id='n135' href='#n135'>135</a>
<a id='n136' href='#n136'>136</a>
<a id='n137' href='#n137'>137</a>
<a id='n138' href='#n138'>138</a>
<a id='n139' href='#n139'>139</a>
<a id='n140' href='#n140'>140</a>
<a id='n141' href='#n141'>141</a>
<a id='n142' href='#n142'>142</a>
<a id='n143' href='#n143'>143</a>
<a id='n144' href='#n144'>144</a>
<a id='n145' href='#n145'>145</a>
<a id='n146' href='#n146'>146</a>
<a id='n147' href='#n147'>147</a>
<a id='n148' href='#n148'>148</a>
<a id='n149' href='#n149'>149</a>
<a id='n150' href='#n150'>150</a>
<a id='n151' href='#n151'>151</a>
<a id='n152' href='#n152'>152</a>
<a id='n153' href='#n153'>153</a>
<a id='n154' href='#n154'>154</a>
<a id='n155' href='#n155'>155</a>
<a id='n156' href='#n156'>156</a>
<a id='n157' href='#n157'>157</a>
<a id='n158' href='#n158'>158</a>
<a id='n159' href='#n159'>159</a>
<a id='n160' href='#n160'>160</a>
<a id='n161' href='#n161'>161</a>
<a id='n162' href='#n162'>162</a>
<a id='n163' href='#n163'>163</a>
<a id='n164' href='#n164'>164</a>
<a id='n165' href='#n165'>165</a>
<a id='n166' href='#n166'>166</a>
<a id='n167' href='#n167'>167</a>
<a id='n168' href='#n168'>168</a>
<a id='n169' href='#n169'>169</a>
<a id='n170' href='#n170'>170</a>
<a id='n171' href='#n171'>171</a>
<a id='n172' href='#n172'>172</a>
<a id='n173' href='#n173'>173</a>
<a id='n174' href='#n174'>174</a>
<a id='n175' href='#n175'>175</a>
<a id='n176' href='#n176'>176</a>
<a id='n177' href='#n177'>177</a>
<a id='n178' href='#n178'>178</a>
<a id='n179' href='#n179'>179</a>
<a id='n180' href='#n180'>180</a>
<a id='n181' href='#n181'>181</a>
<a id='n182' href='#n182'>182</a>
<a id='n183' href='#n183'>183</a>
<a id='n184' href='#n184'>184</a>
<a id='n185' href='#n185'>185</a>
<a id='n186' href='#n186'>186</a>
<a id='n187' href='#n187'>187</a>
<a id='n188' href='#n188'>188</a>
<a id='n189' href='#n189'>189</a>
<a id='n190' href='#n190'>190</a>
<a id='n191' href='#n191'>191</a>
<a id='n192' href='#n192'>192</a>
<a id='n193' href='#n193'>193</a>
<a id='n194' href='#n194'>194</a>
<a id='n195' href='#n195'>195</a>
<a id='n196' href='#n196'>196</a>
<a id='n197' href='#n197'>197</a>
<a id='n198' href='#n198'>198</a>
<a id='n199' href='#n199'>199</a>
<a id='n200' href='#n200'>200</a>
<a id='n201' href='#n201'>201</a>
<a id='n202' href='#n202'>202</a>
<a id='n203' href='#n203'>203</a>
<a id='n204' href='#n204'>204</a>
<a id='n205' href='#n205'>205</a>
<a id='n206' href='#n206'>206</a>
<a id='n207' href='#n207'>207</a>
<a id='n208' href='#n208'>208</a>
<a id='n209' href='#n209'>209</a>
<a id='n210' href='#n210'>210</a>
<a id='n211' href='#n211'>211</a>
<a id='n212' href='#n212'>212</a>
<a id='n213' href='#n213'>213</a>
<a id='n214' href='#n214'>214</a>
<a id='n215' href='#n215'>215</a>
<a id='n216' href='#n216'>216</a>
<a id='n217' href='#n217'>217</a>
<a id='n218' href='#n218'>218</a>
<a id='n219' href='#n219'>219</a>
<a id='n220' href='#n220'>220</a>
<a id='n221' href='#n221'>221</a>
<a id='n222' href='#n222'>222</a>
<a id='n223' href='#n223'>223</a>
<a id='n224' href='#n224'>224</a>
<a id='n225' href='#n225'>225</a>
<a id='n226' href='#n226'>226</a>
<a id='n227' href='#n227'>227</a>
<a id='n228' href='#n228'>228</a>
<a id='n229' href='#n229'>229</a>
<a id='n230' href='#n230'>230</a>
<a id='n231' href='#n231'>231</a>
<a id='n232' href='#n232'>232</a>
<a id='n233' href='#n233'>233</a>
<a id='n234' href='#n234'>234</a>
<a id='n235' href='#n235'>235</a>
<a id='n236' href='#n236'>236</a>
<a id='n237' href='#n237'>237</a>
<a id='n238' href='#n238'>238</a>
<a id='n239' href='#n239'>239</a>
<a id='n240' href='#n240'>240</a>
<a id='n241' href='#n241'>241</a>
<a id='n242' href='#n242'>242</a>
<a id='n243' href='#n243'>243</a>
<a id='n244' href='#n244'>244</a>
<a id='n245' href='#n245'>245</a>
<a id='n246' href='#n246'>246</a>
<a id='n247' href='#n247'>247</a>
<a id='n248' href='#n248'>248</a>
<a id='n249' href='#n249'>249</a>
<a id='n250' href='#n250'>250</a>
<a id='n251' href='#n251'>251</a>
<a id='n252' href='#n252'>252</a>
<a id='n253' href='#n253'>253</a>
<a id='n254' href='#n254'>254</a>
<a id='n255' href='#n255'>255</a>
<a id='n256' href='#n256'>256</a>
<a id='n257' href='#n257'>257</a>
<a id='n258' href='#n258'>258</a>
<a id='n259' href='#n259'>259</a>
<a id='n260' href='#n260'>260</a>
<a id='n261' href='#n261'>261</a>
<a id='n262' href='#n262'>262</a>
<a id='n263' href='#n263'>263</a>
<a id='n264' href='#n264'>264</a>
<a id='n265' href='#n265'>265</a>
<a id='n266' href='#n266'>266</a>
<a id='n267' href='#n267'>267</a>
<a id='n268' href='#n268'>268</a>
<a id='n269' href='#n269'>269</a>
<a id='n270' href='#n270'>270</a>
<a id='n271' href='#n271'>271</a>
<a id='n272' href='#n272'>272</a>
<a id='n273' href='#n273'>273</a>
<a id='n274' href='#n274'>274</a>
<a id='n275' href='#n275'>275</a>
<a id='n276' href='#n276'>276</a>
<a id='n277' href='#n277'>277</a>
<a id='n278' href='#n278'>278</a>
<a id='n279' href='#n279'>279</a>
<a id='n280' href='#n280'>280</a>
<a id='n281' href='#n281'>281</a>
<a id='n282' href='#n282'>282</a>
<a id='n283' href='#n283'>283</a>
<a id='n284' href='#n284'>284</a>
<a id='n285' href='#n285'>285</a>
<a id='n286' href='#n286'>286</a>
<a id='n287' href='#n287'>287</a>
<a id='n288' href='#n288'>288</a>
</pre></td>
<td class='lines'><pre><code>#!/usr/bin/perl -w
# drakfont Future Overview
# - Fonts import :
# pfb ( Adobe Type 1 binary )
# pfa ( Adobe Type 1 ASCII )
# ttf ( True-Type )
# pcf.gz
# Speedo
# and Bitmap (PCF, BDF, and SNF)
# - Features
# - Install fonts from any directory
# - Get windows fonts on any vfat partitions
# - UN-installation of any fonts (even if not installed through drakfont)
# - Support
# - Xfs
# - ghostscript & printer
# - Staroffice & printer
# - abiword
# - Koffice, Gnumeric, ... studying
# - all fonts supported by printer
# ( aliases by RENDER in Xfree86 .... -> later )
# Visual Interface:
# Window interface:
# - Fontselectiondialog widget
# - Command buttons under Fontselectiondialog (like the actual frontend).
# Commands buttons:
# - import from windows partition.
# import from all fat32 partitions and look for winnt/windows/font
# and import all (delete doublon) but don't import if already exist.
# - import from directory
# look for if it exist before for each font and not delete the original.
# (replace all, no, none)
# expert options:
# ask the directory, and look for if it exist before
# if it exist ask: (replace all, no, none)
# - uninstall with list per font type
# Expert additional switch
# - option support: ghostscript, Staroffice, etc...
# check-button. (by default all check)
# - Printer Application Fonts Support...
# check-button. (by default all check)
use Gtk;
use lib qw(/usr/lib/libDrakX);
#use interactive;
#use standalone;
use my_gtk qw(:helpers :wrappers);
use common;
use strict;
use MDK::Common::Globals "network", qw($in $prefix $connect_file $disconnect_file $connect_prog);
if ("@ARGV" =~ /--help|-h/) {
print q(Font Importation and monitoring application
--windows_import : import from all available windows partitions.
--xls_fonts : show all fonts that already exist from xls
--strong : strong verification of font.
--install : accept any font file and any directry.
--uninstall : uninstall any font or any directory of font.
--replace : replace all font if already exist
--application : 0 none application.
: 1 all application available supported.
: name_of_application" like staroffice for only this one.
);
exit(0);
}
my $xlsfonts;
my $windows;
my $strong;
my $replace;
my $application;
my $install;
my $uninstall;
my $mode = -1;
my @application;
my @install;
my @uninstall;
foreach (@ARGV) {
/--xls_fonts/ and $xlsfonts = 1, $mode=-1;
/--windows_import|-wi/ and $windows = 1, $mode=-1;
/--strong|-s/ and $strong = 1, $mode=-1;
/--replace|-r/ and $replace = 1, $mode=-1;
/--application/ and $mode = 0, next;
$mode == 0 and push @application, $_;
/--install/ and $mode = 1, next;
$mode == 1 and push @install, $_;
/--uninstall/ and $mode = 2, next;
$mode == 2 and push @uninstall, $_;
}
print "app : @application\n";
print "install : @install\n";
print "uninstall : @uninstall\n";
print "xx $xlsfonts\n";
my $xfs_conffile = '/etc/X11/fs/config';
my $drakfont_dir = '/home/seb/new_drackfont';
my $chkfontpath = '/usr/sbin/chkfontpath';
my $part;
my @list_part;
my @test;
my @font_list = ();
my @installed_fonts = ();
my @installed_fonts_path = ();
my @fontsdir_to_install= ();
my @fontsdir_to_uninstall= ();
my @installed_fonts_full_path = ();
sub search_installed_fonts {
foreach (grep { /\d+:\s/ } `$chkfontpath -l`) {
chomp;
s/\d+:\s//gi;
s/:\w*$//gi;
push @installed_fonts_path, $_;
}
push @installed_fonts, all($_) foreach @installed_fonts_path;
}
sub search_installed_fonts_full_path {
my $j;
foreach (grep { /\d+:\s/ } `$chkfontpath -l`) {
chomp;
s/\d+:\s//gi;
s/:\w*$//gi;
push @installed_fonts_path, $_;
}
foreach my $i (@installed_fonts_path) {
foreach $j (all($i)) {
push @installed_fonts_full_path, "$i/$j";
}
}
}
sub search_windows_font {
foreach my $fstab_line (grep { /ext2/ } cat_('/etc/mtab') ) {
my $win_dir = (split('\s', $fstab_line))[1];
my @list_fonts_win = all("$win_dir/windows/fonts");
my @list_fonts_winnt = all("$win_dir/winnt/fonts");
if(!@list_fonts_win && !@list_fonts_winnt) {
print "[35mdrakfont:: could not find any font in $win_dir/win*/fonts [0m\n";
return 0;
}
foreach my $i (@list_fonts_win) {
grep ( /$i$/, @font_list) || grep (/$i/, @installed_fonts) or push @font_list, "$win_dir/windows/fonts/$i";
}
foreach my $i (@list_fonts_winnt) {
grep ( /$i$/, @font_list) || grep (/$i/, @installed_fonts) or push @font_list, "$win_dir/winnt/fonts/$i";
}
}
1;
}
sub search_dir_font {
my @font_list_tmp = ();
my @font_list_tmpp = ();
my $fn = $_;
if (!(-e $fn )) { print "$_ :: no such file or directory \n";}
else {
if ( -d $fn ) {
foreach my $i (all($fn)) { if (($i =~ /.ttf$/i) || ($i =~ /.pfa$/i) || ($i =~ /.pfb$/i)
|| ($i =~ /.pcf$/i) || ($i =~ /.pcf.gz$/i)) {
push @font_list_tmp, "$fn$i";
}
}
}
else {
if (($fn =~ /.ttf$/i) || ($fn =~ /.pfa$/i) || ($fn =~ /.pfb$/i) || ($fn =~ /.pcf$/i)
|| ($fn =~ /.pcf.gz$/i)) {
push @font_list_tmp, "$fn";
}
}
print "Fonts in directory : ".$_."\n" foreach (@font_list_tmp);
# @font_list = grep !$_, @font_list_tmp foreach @installed_fonts;
foreach my $i (@installed_fonts) {
foreach my $j (@font_list_tmp) {
if (( $j =~ !/$i/) && !grep ($j , @font_list)) { push @font_list, "$j" ;}
}
}
print "Font to install : ".$_."\n" foreach (@font_list);
}
}
# Probleme: reperage des fontes de3ja existantes
#
#
#
sub search_dir_font_uninstall {
my @font_list_tmp = ();
my $fn = $_;
if ( -d $fn ) {
foreach my $i (all($fn)) { if (($i =~ /.ttf$/i) || ($i =~ /.pfa$/i) || ($i =~ /.pfb$/i)
|| ($i =~ /.pcf$/i) || ($i =~ /.pcf.gz$/i)) {
push @font_list_tmp, "$i";
}
}
}
else {
if (($fn =~ /.ttf$/i) || ($fn =~ /.pfa$/i) || ($fn =~ /.pfb$/i) || ($fn =~ /.pcf$/i)
|| ($fn =~ /.pcf.gz$/i)) {
push @font_list_tmp, "$fn";
}
}
foreach my $i (@installed_fonts_full_path) {
foreach my $j (@font_list_tmp) {
if ( $i =~ /$j/) { push @font_list, "$i" ;}
}
}
print "Fonts to uninstal : ".$_."\n" foreach (@font_list);
}
sub print_list { print "Font(s) to Install :\n\n"; print "$_\n" foreach (@font_list) }
sub put_font_dir {
# mkdir_p($drakfont_dir);
# cp_af(@font_list, $drakfont_dir);
# system ("cd $drakfont_dir && type1inst && chkfontpath -a $drakfont_dir");
# xlsfonts | less pour verifier l'installation des polices.
}
$xlsfonts || $windows || $install || $uninstall ? backend_mod() : interactive_mode();
sub backend_mod {
if ($xlsfonts) {
system ("xlsfonts");
}
if ($windows) {
print "........Windows fonts Installation........\n\n";
search_installed_fonts();
if(search_windows_font()) {
print_list();
put_font_dir();
}
print "\n...............The End...................\n";
}
if ($install) {
print ".......Install Specifics Fonts...........\n\n";
search_installed_fonts();
foreach my $tmp (@ARGV) {
if (!($tmp =~ /^-/ )) {
print "parse : $tmp \n";
push @fontsdir_to_install, $tmp;
}
}
search_dir_font $_ foreach (@fontsdir_to_install);
#put_font_dir();
print "\n...............The End...................\n";
}
if ($uninstall) {
print "........Uninstall Specifics Fonts........\n\n";
search_installed_fonts_full_path();
foreach my $tmp (@ARGV) {
if (!($tmp =~ /^-/ )) {
print "parse : $tmp \n";
push @fontsdir_to_uninstall, $tmp;
}
}
search_dir_font_uninstall $_ foreach (@fontsdir_to_uninstall);
print "\n...............The End...................\n";
}
}
sub interactive_mode {
#gtk
}
# install & uninstall a revoir
# au niveau du passage de paramettre
# un grep comme avant (qui ne sert pas a rien)
# faire une valeure de retour pour toutes les fonctions
</code></pre></td></tr></table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.zx2c4.com/cgit/about/'>cgit v1.2.1</a> (<a href='https://git-scm.com/'>git 2.21.0</a>) at 2025-03-10 04:47:04 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>